Programmes de Travaux Publiques
Pour visualiser les sources des programmes
vous devez télécharger le fichier de police ti dans
le dossier : C:\WINDOWS\FONTS\
Pour ne rien oublier voici le diagramme du programme
Programme A01TRXP
EffEcr
Lbl 99
Menu(" TRAVAUX PUB ","Pts sur droite",1,"Pts sur cercle",2,"Clotoides",4
Lbl 1
prgmPTINDRO
Goto 99
Lbl 2
prgmPTCERCLE
Goto 99
Lbl 4
prgmCLOTOIDE
Lbl 5
Stop
Programme PTINDRO
EffEcr
Disp "X Depart"
Input A
Disp "Y Depart"
Input B
Disp "X Arivee"
Input C
Disp "Y Arivee"
Input D
C-A E
D-BF
(E +F)^0.5G
Disp "Distance",G
Disp "Interval"
Input I
EffEcr
Lbl 1
Disp "Profil max",ent(G/I)
Disp "Profil N"
Input J
I*JD
D/GR
A+R*EL
B+R*FM
EffEcr
Disp ""
Disp "Nouveau pt X",L
Disp "Nouveau pt Y",M
Pause
Goto 1
Programme PTCERCLE
Radian
Fixe 3
EffEcr
Disp "Info sur cercle"
Disp "Centre O X"
Input A
Disp "Centre O Y"
Input B
Disp "Rayon du cercle"
Input R
EffEcr
Disp "Infos reference"
Disp "Point A X"
Input C
Disp "Point A Y"
Input D
C-AX
D-BY
prgmGISMT
EffEcr
Disp "Dist develope"
Input J
J/RI
Lbl 1
EffEcr
Disp "Numero du point"
Input F
I*FK
H-KL
A+sin(L)*RX
B+cos(L)*RY
EffEcr
Disp "Point du cercle"
Disp "X =",X
Disp "Y =",Y
Pause
Goto 1
Programme CLOTOIDE
Lbl 99
Radian
0L
0A
0R
0E
0B
 2K
Menu(" CLOTOIDE ","Axe simple",1,"tang droite",2
Lbl 1
9U
Goto 10
Lbl 2
9U
EffEcr
Disp "Point De Tangt X"
Input M
Disp "Point De Tangt Y"
Input N
EffEcr
Disp "Point De ref X"
Input P
Disp "Point De ref Y"
Input Q
P-MX
Q-NY
prgmGISMT
Menu(" GISEMENT ","Pt ref avant",6,"Pt reF Clotoid",7,"Gisement D",8,"Rien passer",10
Lbl 6
H- H
Goto 10
Lbl 7
Goto 10
Lbl 8
EffEcr
Disp "Entre Le gisemen"
Disp "De La droite du"
Disp "Cote de clotoide"
Input H
H*(/200)H
Lbl 10
EffEcr
Disp "Quand Inconnues"
Disp "Taper 0 et enter"
Pause
EffEcr
Disp "Parametre A"
Input A
EffEcr
Disp "Longueur racord"
Input L
EffEcr
Disp "Rayon du racord"
Input R
EffEcr
Disp "Informations sur"
Disp "L'origine curvil"
Pause
EffEcr
Disp "Absice de origin"
Input E
EffEcr
Disp "Interdist points"
Input C
E+CS
EffEcr
If (A*L) 0
(A/L)R
If (A*R)0
(A/R)L
If (R*L)0
(L*R)^0.5A
Lbl 20
S-S^5/(40*A^4)+S^9/(3456*A^8)-S^13/(599040*A^12)X
S^3/(6*A^2)-S^7/(336*A^6)+S^11/(42240*A^10)-S^15/(9676800*A^14)Y
EffEcr
If K=0
Goto 98
Disp "Coordonnees X,Y"
Disp " repere local"
Disp arrondi(X,3)
Disp arrondi(Y,3)
Disp "AbcIce curvil",S-E
Pause
If U>0
Goto 25
If (S+C-E)>L
Goto 90
If U<0
Then
S+C-ES
Goto 20
End
Lbl 25
(X+Y)^0.5D
If X=0
X+ ^(9)X
Arctan(Y/X)G
H-GF
If F<0
F+2*F
If F>(2*)
F-2*F
M+sin(F)*DV
N+cos(F)*DW
EffEcr
Disp "Coordonnees X,Y"
Disp " repere general"
Disp arrondi(V,3)
Disp arrondi(W,3)
Disp "Abcice",S-E
Pause
Goto 50
Lbl 90
EffEcr
Disp "On depasse L"
K+1K
Pause
L+ES
Goto 20
Lbl 50
If (S+C-E)>L
Goto 90
S+C-ES
Goto 20
Lbl 98
1K
Disp "Rayon du cercle"
Disp "De tangence a L",R
Pause
EffEcr
L/(2*A)Q
X-R*sin(Q)I
Y+R*cos(Q)J
Disp "Coordonnees X,Y"
Disp " repere local"
Disp ""
Disp " du centre",I,J
Pause
If U=9
Goto 99
(I+J)^0.5D
If X=0
X+^(9)X
Arctan(J/I)G
H-GF
If F<0
F+2*F
If F>(2*)
F-2*F
M+sin(F)*DV
N+cos(F)*DW
EffEcr
Disp "Coordonnees X,Y"
Disp " repere general"
Disp ""
Disp " du centre",V,W
Pause
Goto 99
ProgrammeGISMT
If Y=0
Then
Y+^(15)Y
End
Arctan(X/Y)G
If Y<0
Then
G+H
Goto 10
End
If X<0
Then
G+2*H
Goto 10
End
GH
Lbl 10
H*(200/)G
EffEcr
Disp ""
Disp "Gisement",G
(X+Y)^0.5D
Disp ""
Disp "Distance",D
Pause
Return
|